home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111b.zip
/
SCRIPTS.ZIP
/
PCBOARD.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
1KB
|
56 lines
' ┌───────────────────────────────────┐
' │ PCBoard 15.0 script for 1stReader │
' │ Written by Mark Herring │
' │ May 15th, 1993 │
' └───────────────────────────────────┘
IF SCR_CALL THEN GOTO SETUP
CAPTURE ON
KILL @API$(28)@API$(10).DL
NEWFILES ON
:SETUP
CALL $$PCB.SCR
IF NOT SCR_CALL THEN GOTO REPLIES
TERMINAL
EXIT
:REPLIES
IF NOT REPLIES THEN GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Uploading replies to PCBoard 15.0"
TRANSMIT "QWK U Z^M"
WAITFOR "(Ctrl-X) Aborts" 20
IF FOUND=0 THEN GOTO DOWNLOAD
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "Message(s) successfully|Command?"
IF FOUND=2 THEN GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
WAITFOR "Command?" 3
:DOWNLOAD
IF SCR_REPLY THEN GOTO GOODBYE1
COMMENT "@DATE@ @TIME@ Requesting QWK packet from PCBoard 15.0"
TRANSMIT "QWK D Z^M"
WAITFOR "Creating QWK|Nothing to download"
IF FOUND=2 THEN GOTO GOODBYE
WAITFOR "(Ctrl-X) Aborts"
DOWNLOAD @FILEDIR@@BBSID@.QWK
WAITFOR "Successful" 10
IF FOUND=1 THEN COUNT QWK
:GOODBYE
WAITFOR "Command?" 10
:GOODBYE1
COMMENT "@DATE@ @TIME@ Transmitting GOODBYE command"
TRANSMIT "G;Y^M"
:EXIT
COMMENT "@DATE@ @TIME@ Waiting for disconnect"
WAITFOR "NO CARRIER" 20
CAPTURE OFF